home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
egyptw.dir
/
01712_Script_Mummification
< prev
next >
Wrap
Text File
|
1995-09-13
|
10KB
|
366 lines
global gQuest, gBeenClicked
on EMummRollovers1
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
repeat while rollover(6)
EgyptCursor
puppetsprite 15, true
set the locH of sprite 15 to 255
set the locV of sprite 15 to 288
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopFast 6, 707, 3, 0, 2
end repeat
end if
end if
end repeat
set the locH of sprite 15 to 955
puppetsprite 15, false
updatestage
else
if rollover(7) then
repeat while rollover(7)
EgyptCursor
puppetsprite 16, true
set the locH of sprite 16 to 555
set the locV of sprite 16 to 315
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
set the locH of sprite 16 to 855
updatestage
repeat while gBeenClicked = 1
MummyAnimate 7, 710, 5, "SE401400.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 16 to 955
puppetsprite 16, false
updatestage
else
if rollover(8) then
ArrowCursor
repeat while rollover(8)
set the locH of sprite 9 to 408
set the locV of sprite 9 to 282
updatestage
end repeat
set the locH of sprite 9 to 908
updatestage
else
if rollover(10) then
ArrowCursor
repeat while rollover(10)
set the locH of sprite 11 to 495
set the locV of sprite 11 to 325
updatestage
end repeat
set the locH of sprite 11 to 995
updatestage
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 499
set the locV of sprite 13 to 324
updatestage
end repeat
set the locH of sprite 13 to 999
updatestage
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 28 to 503
set the locV of sprite 28 to 161
updatestage
end repeat
set the locH of sprite 28 to 903
updatestage
else
if rollover(40) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on EMummRollovers2
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
repeat while rollover(6)
EgyptCursor
puppetsprite 13, true
set the locH of sprite 13 to 265
set the locV of sprite 13 to 352
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopToFroSlow 6, 750, 4, "SE400901.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 13 to 965
puppetsprite 13, false
updatestage
else
if rollover(8) then
repeat while rollover(8)
EgyptCursor
puppetsprite 9, true
set the locH of sprite 9 to 427
set the locV of sprite 9 to 308
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
CloseBox
end repeat
end if
end if
end repeat
set the locH of sprite 9 to 927
puppetsprite 9, false
updatestage
puppetsprite 8, false
else
if rollover(7) then
repeat while rollover(7)
EgyptCursor
set the locH of sprite 11 to 452
set the locV of sprite 11 to 327
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
OpenCoffin
end repeat
end if
end if
end repeat
set the locH of sprite 11 to 952
updatestage
else
if rollover(10) then
ArrowCursor
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 28 to 446
set the locV of sprite 28 to 148
updatestage
end repeat
set the locH of sprite 28 to 946
updatestage
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 15 to 315
set the locV of sprite 15 to 157
updatestage
end repeat
set the locH of sprite 15 to 915
updatestage
else
if rollover(16) then
ArrowCursor
repeat while rollover(16)
set the locH of sprite 17 to 387
set the locV of sprite 17 to 125
updatestage
end repeat
set the locH of sprite 17 to 987
updatestage
else
if rollover(18) then
ArrowCursor
repeat while rollover(18)
set the locH of sprite 19 to 420
set the locV of sprite 19 to 269
updatestage
end repeat
set the locH of sprite 19 to 920
updatestage
else
if rollover(39) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on MummyAnimate whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
ArrowCursor
set gSprite = whichsprite
set gCast = whichCast
set the castNum of sprite gSprite = gCast
set Count = 0
repeat while Count < HowManyTimes and (the MouseUp)
puppetsound whichsound
set the castNum of sprite gSprite = gCast + 1
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 2
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 3
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 4
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 3
updatestage
puppetsound whichsound
wait .2
set the castNum of sprite gSprite = gCast + 2
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 1
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 2
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 3
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 4
updatestage
wait .4
set the castNum of sprite gSprite = gCast + 3
updatestage
puppetsound whichsound
wait .2
set the castNum of sprite gSprite = gCast + 2
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 1
updatestage
wait .2
set the castNum of sprite gSprite = gCast
updatestage
wait .2
set count = count + 1
end repeat
set the castnum of sprite gSprite = gCast
updatestage
Puppetsound 0
set gbeenclicked = 0
end
on CloseBox
ArrowCursor
set gSprite = 8
set gCast = 740
puppetsprite 8, true
set the castNum of sprite gSprite = gCast
puppetsound "SV400501.AIF"
set the castNum of sprite gSprite = gCast + 1
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 2
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 3
updatestage
wait .15
set the castNum of sprite gSprite = gCast + 4
updatestage
wait .1
set gbeenclicked = 0
end
on OpenCoffin
ArrowCursor
set gSprite = 7
set gCast = 745
puppetsprite 7, true
set count = 0
repeat while count < 1 and the mouseup
set the castNum of sprite gSprite = gCast
puppetsound "SV400601.AIF"
set the castNum of sprite gSprite = gCast + 1
updatestage
wait .3
set the castNum of sprite gSprite = gCast + 2
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 3
updatestage
wait .2
set the castNum of sprite gSprite = gCast + 4
updatestage
wait 2
puppetsound "SV400602.AIF"
set the castNum of sprite gSprite = gCast + 2
updatestage
set count = count +1
end repeat
set the castNum of sprite gSprite = gCast
updatestage
wait 1
puppetsound 0
set gbeenclicked = 0
puppetsprite 7, false
end